From: Glenn Morris <rgm@gnu.org>
Date: Mon, 29 Jul 2002 13:07:23 +0000 (+0000)
Subject: (scroll-all-mode): Handle numeric arg.  Use `if' instead of `cond'.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~31325
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=bf293264ae3120d027def58a0cc8788d2d93472f;p=emacs.git

(scroll-all-mode): Handle numeric arg.  Use `if' instead of `cond'.
---

diff --git a/lisp/scroll-all.el b/lisp/scroll-all.el
index 4548f954a7a..9092cfa7525 100644
--- a/lisp/scroll-all.el
+++ b/lisp/scroll-all.el
@@ -125,12 +125,12 @@ use either \\[customize] or the function `scroll-all-mode'."
 (defun scroll-all-mode (arg)
   "Toggle Scroll-All minor mode."
   (interactive "P")
-  (setq scroll-all-mode (not scroll-all-mode))
-  (cond
-   ((eq scroll-all-mode 't)
-    (add-hook 'post-command-hook 'scroll-all-check-to-scroll))
-   ((eq scroll-all-mode 'nil)
-    (remove-hook 'post-command-hook 'scroll-all-check-to-scroll))))
+  (setq scroll-all-mode
+        (if (null arg) (not scroll-all-mode)
+          (> (prefix-numeric-value arg) 0)))
+  (if scroll-all-mode
+      (add-hook 'post-command-hook 'scroll-all-check-to-scroll)
+    (remove-hook 'post-command-hook 'scroll-all-check-to-scroll)))
 
 (provide 'scroll-all)